home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 2.iso / mac / data / Nuttall.dir / 00096_Script_96 < prev    next >
Text File  |  2001-01-30  |  2KB  |  61 lines
  1. Global gFlag
  2. on mouseDown
  3.   --  set clickline = flashline()
  4.   set clickline = the mouseLine
  5.   case clickline of
  6.     1,2: showtrans "using codices"
  7.     3:goto "nuttall_layout","tutorial"
  8.     4:set gflag = ""
  9.       goto 173,"tutorial"
  10.       
  11.       
  12.     5,6:goto "nuttall_anim","entries"  
  13.       
  14.     10,11:goto "Codices_List","tutorial"
  15.     12,13:goto "Mixteca_List","tutorial"
  16.       
  17.     16:goto "Action_List","tutorial"
  18.     17:goto "Land_List","tutorial"
  19.     18:goto "Keeping_List","tutorial"
  20.     19:goto "Body_List","tutorial"
  21.     20:goto "Lyrics_List","tutorial"
  22.       
  23.     23:goto "mixtecazoom","atlas"
  24.       findTown "Achiutla-S Miguel",354,395
  25.     24:goto "mixtecazoom","atlas"
  26.       findTown "Apoala-Santiago",466,271
  27.     25:goto "mixtecazoom","atlas"
  28.       findTown "Yucu1",396,414
  29.     26:goto "mixtecazoom","atlas"
  30.       findTown "Flints, Hill of",417,429
  31.     27:goto "mixtecazoom","atlas"
  32.       findTown "Wasp-Hill of the",417,397
  33.     28:goto "mixtecazoom","atlas"
  34.       findTown "Jaltepec-Magdalena",437,389
  35.     29:goto "mixtecazoom","atlas"
  36.       findTown "Tamazola Tamazola-S Juan",498,438
  37.     30:goto "mixtecazoom","atlas"
  38.       findTown "Teozacoalco",417,493
  39.     31:goto "mixtecazoom","atlas"
  40.       findTown "Tilantongo",400,400
  41.     32:goto "mixtecazoom","atlas"
  42.       findTown "Zaachila",579,515
  43.       
  44.   end case
  45.   abort
  46. end
  47.  
  48. on findTown town, p1, p2
  49.   temp = town
  50.   if temp contains"-" then
  51.     set the itemdelimiter = "-"
  52.     cityname = word 1 of item 1 of temp
  53.   else
  54.     cityname = item 1 of temp
  55.   end if
  56.   
  57.   set the itemdelimiter = ","
  58.   fullname = town
  59.   coords = "point(" & p1 & "," & p2 & ")"
  60.   findCity coords,cityname,fullname
  61. end